home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / BCCGRX12.ZIP / contrib / bcc2grx / src / bccgrx07.c < prev    next >
C/C++ Source or Header  |  1993-07-24  |  983b  |  41 lines
  1. /*
  2.  *  BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
  3.  *  Copyright (C) 1993  Hartmut Schirmer
  4.  *
  5.  *  see bccgrx.c for details
  6.  */
  7.  
  8. #include "bccgrx00.h"
  9.  
  10. void getviewsettings(struct viewporttype  *viewport)
  11. {
  12.   _DO_INIT_CHECK;
  13.   viewport->left   = VL;
  14.   viewport->right  = VR;
  15.   viewport->top    = VT;
  16.   viewport->bottom = VB;
  17.   viewport->clip   = __gr_clip;
  18. }
  19.  
  20. /* ----------------------------------------------------------------- */
  21. void setviewport(int left, int top, int right, int bottom, int clip)
  22. {
  23.   int mm;
  24.  
  25.   _DO_INIT_CHECK;
  26.   GrSetContext( NULL);         /* ViewPort == Full screen */
  27.   if (left > right) SWAP(left,right);
  28.   if (bottom < top) SWAP(bottom,top);
  29.   if (left < 0) left = 0;
  30.   if (right > (mm=getmaxx())) right = mm;
  31.   if (top < 0) top = 0;
  32.   if (bottom > (mm=getmaxy())) bottom = mm;
  33.   __gr_clip = clip;
  34.   VL = left;
  35.   VR = right;
  36.   VT = top;
  37.   VB = bottom;
  38.   __gr_Reset_ClipBox();
  39.   moveto( 0,0);
  40. }
  41.